home *** CD-ROM | disk | FTP | other *** search
/ Mission to McDonaldLand / Mission To McDonaldLand.iso / calnz.dxr / 00016_Script_SuitObj < prev    next >
Text File  |  1998-10-25  |  4KB  |  125 lines
  1. Property myTitle,MyChannel,myType,Objs,Head,Rleg,Lleg,body,¼
  2. Rarm,Larm,MainGraphic,HeadRect,RlegRect,LlegRect,bodyRect,¼
  3. RarmRect,LarmRect,LockToBehav,TotalObjects,enableState
  4.  
  5. on birth me,TitleP,ObjsP
  6.   
  7.   set enableState = TRUE
  8.   set MyTitle = TitleP
  9.   set mytype =#SuitObj
  10.   
  11.   set totalObjects = 6
  12.   --dwid = the offset fo r the drop area
  13.   set dwid = 30
  14.   
  15.   --Location of Lock into points
  16.   set HeadLocX = 207
  17.   set HeadLocY = 152
  18.   
  19.   set LarmLocX = 109
  20.   set LarmLocY = 236
  21.   
  22.   set RarmLocX = 303
  23.   set RarmLocY = 234
  24.   
  25.   set RlegLocX = 241
  26.   set RlegLocY = 397
  27.   
  28.   set LlegLocX = 176
  29.   set LlegLocY = 400
  30.   
  31.   set bodyLocX = 208
  32.   set bodyLocY = 283
  33.   
  34.   --Drop areas
  35.   set headRect = rect(HeadLocX - dwid,headLocY-dwid,headLocX+dwid,headlocY+dwid)
  36.   set RlegRect = rect(RlegLocX - dwid,RlegLocY-dwid,RlegLocX+dwid,RlegLocY+dwid)
  37.   set LlegRect = rect(llegLocX - dwid,llegLocY-dwid,llegLocX+dwid,llegLocY+dwid)
  38.   set RarmRect = rect(RarmLocX - dwid,RarmLocY-dwid,RarmLocX+dwid,RarmLocY+dwid)
  39.   set LarmRect = rect(LarmLocX - dwid,LarmLocY-dwid,LarmLocX+dwid,larmLocY+dwid)
  40.   set BodyRect = rect(BodyLocX - dwid,BodyLocY-dwid,BodyLocX+dwid,BodyLocY+dwid)
  41.   
  42.   --actual character onscreen that we're dragging to
  43.   set MainGraphic = loadimage(screen1,"MainGraphic","#",¼
  44. "MainGraphic",point(212,308),36,false,VOID,2) 
  45.   
  46.   --Pieces of clothing
  47.   
  48.   set Lleg = loadimage(screen1,"Lleg","#","Lleg",point(452,160),36,false,VOID,2) 
  49.   set rleg = loadimage(screen1,"Rleg","#","Rleg",point(529,159),36,false,VOID,2) 
  50.   set Body = loadimage(screen1,"body","#","Body",point(480,330),36,false,VOID,2) 
  51.   set Larm = loadimage(screen1,"Larm","#","Larm",point(438,54),36,false,VOID,2) 
  52.   set Rarm = loadimage(screen1,"Rarm","#","Rarm",point(577,54),36,false,VOID,2) 
  53.   set head = loadimage(screen1,"head","#","head",point(579,337),36,false,VOID,2) 
  54.   --make all the clothing parts draggable by the user
  55.  
  56.   
  57.   --add the lock into place behavior for head
  58.   set tmpList = [:]
  59.   addprop(tmplist,point(headLocX,HeadLocY),headrect)
  60.   set LockTobehav = []
  61.   Append(LockToBehav, birth(script "lockTo",myChan(head),tmpList,TRUE,VOID,point(579,337)))
  62.   
  63.   --add the lock into place behavior for Left arm
  64.   set tmpList = [:]
  65.   addprop(tmplist,point(LarmLocX,LarmLocY),Larmrect)
  66.   Append(LockToBehav, birth(script "lockTo",myChan(Larm),tmpList,TRUE,VOID,point(438,54)))
  67.   
  68.   --add the lock into place behavior for Right arm
  69.   set tmpList = [:]
  70.   addprop(tmplist,point(rarmLocX,rarmLocY),rarmrect)
  71.   Append(LockToBehav, birth(script "lockTo",myChan(rarm),tmpList,TRUE,VOID,point(577,54)))
  72.   
  73.   --add the lock into place behavior for Body
  74.   set tmpList = [:]
  75.   addprop(tmplist,point(BodyLocX,BodyLocY),Bodyrect)
  76.   Append(LockToBehav, birth(script "lockTo",myChan(Body),tmpList,TRUE,VOID,point(480,330)))
  77.   
  78.   --add the lock into place behavior for rightLeg
  79.   set tmpList = [:]
  80.   addprop(tmplist,point(RlegLocX,RlegLocY),Rlegrect)
  81.   Append(LockToBehav, birth(script "lockTo",myChan(Rleg),tmpList,TRUE,VOID,point(529,159)))
  82.   
  83.   --add the lock into place behavior for rightLeg
  84.   set tmpList = [:]
  85.   addprop(tmplist,point(LlegLocX,LlegLocY),Llegrect)
  86.   Append(LockToBehav, birth(script "lockTo",myChan(Lleg),tmpList,TRUE,VOID,point(452,160)))
  87.   set objs = objsP
  88.   append(the actorList,me)
  89.   
  90.   return me
  91. end
  92.  
  93. on stepframe me
  94.   global nuke
  95.   if enableState then
  96.     set LockCount = 0
  97.     repeat with Thisobj in LockToBehav
  98.       if checkstate(ThisObj) then
  99.         set lockCount = lockCount+ 1
  100.       end if
  101.     end repeat
  102.     if lockCount = totalObjects then
  103.       puppetsound "gotospace"
  104.       nukeAll(nuke,Objs,"initScreen2()",60)    
  105.       set enableState = FALSE
  106.     end if
  107.   end if
  108. end
  109.  
  110.  
  111.  
  112. on Kill me
  113.   kill(head)
  114.   kill(Rleg)
  115.   kill(Lleg)
  116.   kill(LArm)
  117.   kill(RArm)
  118.   kill(body)
  119.   repeat with delBehav in LockToBehav
  120.     kill(delBehav)
  121.   end repeat
  122.   delfromActorList(me)
  123.   set lockToBehav = []
  124. end KillMovie
  125.